**REPLICATION FILE

**Mouron, F., Urdinez, F., & Onuki, J. (2016). "Framing effects on foreign policy: 
**experimental evidence from emerging countries and the Argentine-Brazilian rivalry."
**Opinião Pública, 22(1), 195-218.


use DATABASE.dta
*q7 is the tratment variable. Refer to "CodeBook.pdf" for more information.

*TABLE 1
ssc install univar
univar visited polperceprion income family born age gender workstudy, by(uba)

*TABLE 2
tab q7

*TABLE 3
tab q8a 
tab q8b 
tab q8c

*TABLE 4
tab q9a
tab q9b
tab q9c

*TABLE 5
tab q10

*FIGURE 4
drop b1 b2 b3
quietly probit q10 q3
margins, at(q3=(1(1)10))
marginsplot, scheme(sj)

*FIGURE 5 (the probabilities were exported to Excel, refer to FIG5.xls)
findit clarify
estsimp probit q11 polperceprion q6
setx polperceprion 1
simqi, pr
setx polperceprion 2
simqi, pr
setx polperceprion 3
simqi, pr
setx polperceprion 4
simqi, pr
setx polperceprion 5
simqi, pr
setx polperceprion 6
simqi, pr
setx polperceprion 7
simqi, pr
setx polperceprion 8
simqi, pr
setx polperceprion 9
simqi, pr
setx polperceprion 10
simqi, pr
setx q6 1
simqi, pr
setx q6 2
simqi, pr
setx q6 3
simqi, pr
setx q6 4
simqi, pr
setx q6 5
simqi, pr
setx q6 6
simqi, pr
setx q6 7
simqi, pr
setx q6 8
simqi, pr
setx q6 9
simqi, pr
setx q6 10
simqi, pr

*TABLE 6

gen controle= q7 if t==0
gen absoluto= q7 if t==1
gen relativo= q7 if t==2

ttest controle = absoluto, unpaired
ttest controle = relativo, unpaired
ttest absoluto = relativo, unpaired

*FIGURE 6
probit q7 i.t q6 q4 q3 q2  polperceprion  income degree nacionalismo gender uba, nocons
coefplot, scheme(sj) xline(0)

*TABLE 7

**Degree of nationalism
tab q3
gen nacionalismo = 1 if q3 >=6
replace nacionalismo = 0 if nacionalismo==.

ttest controle = absoluto if nacionalismo==1, unpaired
ttest controle = relativo if nacionalismo==1, unpaired

ttest controle = absoluto if nacionalismo==0, unpaired
ttest controle = relativo if nacionalismo==0, unpaired

**Political ideology
tab q6
gen izquierda if q6<5
replace izquierda = 0 if izquierda==.

ttest controle = absoluto if izquierda==1, unpaired
ttest controle = relativo if izquierda==1, unpaired

ttest controle = absoluto if izquierda==0, unpaired
ttest controle = relativo if izquierda==0, unpaired

**Degree of information
tab q4
gen informados = 1 if q4 >=2
replace informados = 0 if informados==.

ttest controle = absoluto if informados==1, unpaired
ttest controle = relativo if informados==1, unpaired

ttest controle = absoluto if informados==0, unpaired
ttest controle = relativo if informados==0, unpaired


**Supports Kirchner
gen antik = 1 if  polperceprion <=5
replace antik = 0 if antik==.

ttest controle = absoluto if antik==1, unpaired
ttest controle = relativo if antik==1, unpaired

ttest controle = absoluto if antik==0, unpaired
ttest controle = relativo if antik==0, unpaired



